برمجة الإكسل - الدرس 07 - التطبيق العملي - تصدير كل ورقة كـ Save every Sheet as PDF
HTML-код
- Опубликовано: 14 окт 2024
- الدرس السابع من برمجة الإكسل Excel VBA Course
تصدير تقرير عن كل طالب وحفظ كل ورقة كـ PDF
Export a Report for Each Student and save it as PDF
تحميل ملفات العمل:
bit.ly/2VebhCc
لأسئلتكم واقتراحاتكم يرجى طلب الانضمام لمجموعة كن محترفاً لتبادل الآراء والخبرات:
/ 166426910643767
--------------------------------
شرح دالة Vlookup:
• 08-01 شرح دالة Vlookup
شرح دالتي Index و Match:
• البحث المتقدم باستخدام...
شرح الجداول وميزاتها:
• 02-01 الجداول - Tables
لمتابعة سلسلة تعلم البرمجة كاملة من هنا:
• دورة جديدة | البرمجة ف...
دورة احتراف برنامج الإكسل 2016:
• التعريف بدورة احتراف ب...
--------------------------------
تابعونا على موقعنا الإلكتروني
www.BePro.training
وتابعونا أيضاً على مواقع التواصل الاجتماعي:
فيس بوك: / almfs
تويتر: / almunthir
لنكد ان: / almunthir
ـ+ــ+ــ+ــ+ــ+ــ+ــ+ــ+ــ+ــ+ــ+
صفحة كن محترفاَ - BePro:
/ be.prooo
تلغرام: t.me/BeProOo
تويتر: / bepro19
MsgBox(" شكرا على هذا الجهد الرائع الحمد لله اكو هيج قنواة واشخاص رائعين يثرون المحتوى العربي ")
شرح ممتاز وطريقة مبسطة وجميلة تخلي المتعلم يستنى الفيديوهات القادمة على نار
كلمة مبدع لن تفي بوصفك فأنت تجاوزت بكثير مما تعنية هذه الكلمة من ابداع.. فانا سعيد بك كثيرا لكونك عربي..😚🤗
يا اخي الشكر قليل بحقك .. اني حالياً No.1 بعملي والحمد لله
أنت مميز و هذا الفيديو رائع جدا.. شكرا لك
بدون مبالغه ما شالله افضل معلم لـVBA جزاك الله كل خير
شكرا جزيلا استاذ منذر
بارك الله فيك وعليك ووفقك لكل ما فية الخير
شرح مميز وعمل مميز ... ماشاء الله
يا اخي لك فضل كبير في تعليمي ونجاحي في عملي
بارك الله فيك
درس جميل ما شاء الله و سهل الاستخدام
بالتوفيق عزيزي
شكراً جزيلاً استاذ منذر شرح ممتع ومفيد
فيديو رائع جداً وممتع ياخي انا استمتع بفيديوهات
الله يقويك يارب
ويزيدك من علمه
روعه روعه بارك الله فيكم
ربي يبارك فيك استاذ
رائع أخي المنذر سفان استمر انته شخص رائع
رائع جدا استاذنا
الله يزيدك من علمه
تحية تقدير وأحترام الى الأستاذ الرائع المنذر سفان ,, شرح جميل وممتع لكن أنا لم أدرس كتابة البرمجه أو علوم الحاسوب مع ذلك أحاول أن أطبق الدرس وإن شاء الله يأتي بنتائج طيبه لأن هذا الدرس يفيدني جداً في مجال عملي في شركه مستخدماً الأكسل منذ سنين ,, مع الشكر الجزيل
مشكور اخ منذر درس قوي وممتع :)
شرح رائع جدا استاذ الله ابارك فيك
الشرح راااائع شكرا الك وزادك الله علما ونورا
يسعد أوقاتك أستاذنا الكريم وكالعادة درس عملي أكتر من رائع ومتميز بالشرح والفائدة, يعوضك الله أضعافا مضاعفة عن تعبك وجهدك. مع كل الشكر والتقدير
ما شاء الله أخي منذر فأنت موهوب في التدريس
فكرة روعة وانت روعة
جزاك الله خيراً أخى المنذر
مميز اخي المندر
اللهم صل على محمد
بارك الله فيك استاذ منذر .. جدا جدا روووووعه
جزاك الله خيرا...........مبدع اخ منذر
جزاك الله خير
درس رائع ومميز أخي المنذر وفيه كمية معلومات رهيبة ، جزاك الله خيرا
جزاك الله خيرا تستاهل مليون لايك أخي
جميل جدا استاذنا القدير
رجاء اخوي من اي شخص يشوف تعليقي يعطيه لايك حتى الأخ المنذر يشوف طلبي و يلبيه اقسم لست من متسولي اللايكات
سؤالي الى الأخ منذر اتمنى عمل درس في برنامج الاكسل حول طريقة ادراج صف في نهاية كل صفحة و يتم وضع فيه المجموع او المعدل... الخ لنفرض لدي 200 صف و اريد اطبعهم لكن يجب اضافة مجموع البيانات لكل صفحة اعرف عمل ذلك يدويا لكن كيف ممكن اوتوماتيكيا؟
بارك الله فيك
جد متميز
THANK YOU SOO MUCH MR AL MUNTHIR
شرح واسلوب رائع، انا استمتع بمشاهدة فيديوهاتك. الله يوفقك.
بعد اذنك عندي سؤال: كيف ممكن نتغلب على مشكلة لو ان اسم الملف موجود مسبقًا عند تصدير ملف اكسل الى PDF بحيث نحصل على رسالة " الملف موجود هل تريد استبداله" .
درس رائع شكرا وفقك الله استاذنا الكريم!
السلام عليكم ، درس رائع جدا بس هناك طريقة أسهل بكثير ، يمكنك تصميم الموديل الذي ستقوم بطباعته على الوورد ثم تربط ملف الوورد بملف الإكسل عن طريق الأداة Mailings التي تستعمل في طباعة شهائد الطلبة باسماء وتواريخ ميلاد مختلفة على الإكسل ، ثم بعدها برنامج الوورد يقوم بانشاء جميع الصفحات في ملف واحد أو يمكنك تصديرpdf طباعة في ملف واحد ثم ببرنامج nitro pdf جعل كل صفحة في ملف وحده.
يا الله شو راسي وجعني شو بده يحفظ كل هاد وما ينساه
ماشاء الله اللهم بارك
لايك قبل المشاهدة
الله يباركلك
كم أنت رائع أخي منذر. بقي أن أقول حبذا لو أضفت في تحديث قادم إمكانية إنشاء صفحات التقارير من خلال ماكرو (ميك ريبورتس) أو تصدير التقارير إلى بي دي إف من خلال (ُاكسبورت بي دي إف) وذلك بالسماح بالكتابة فوق البيانات الموجودة في الصفحات التي يتم إنشاؤها سابقاً وفوق الملفات الموجودة التي تم تصديرها سابقاً وذلك من أجل المزيد من المرونة عند التعديل على بيانات الطالب في أي وقت. استمر وفقك الله.
بارك الله فى حضرتك
طيب لو كان المطلوب ان يتم تصدير كافة التقرير بغض النظر عن عددهم فى ملف واحد PDF علما بأن ورقة العمل يظهر به موظف او عميل واحد فقط وباقى العملاء او الموظفين بيظهروا عن طريق دوال وذر معين للتنقل.... الكود هيكون ازاى
استاذنا الفاضل بستسمح حضرتك تعمل شرح لبرنامح Mircosoft Visio
thank you I wish you the best inchallah
بارك الله فيك
شرح جميل وعملي
ارغب في التصدير في ورقه واحده في الاكسل
تكون الجداول تحت بعض ثم احفظها ملف واحد pdf؟
🌸
ربي يسعدك
شكرا جزيلا،، هل ممكن توضح كيفية كتابة كود ليجمع ملفات البي دي اف التي كونتها من الاكسيل ليجمعها في ملف بي دي اف واحد
يعطيك العافية .......
هل هناك كود لحفظ مجموعة شهادات بور بوينت بصيغة pdf بحيث تكون كل شهادة لوحدها باسم صاحب الشهادة المكتوب في الشهادة ال slide
ولك جزيل الشكر
🌷🌷
شكرا لك أستاذ منذر - قمت بتطبيق معادلة VLOOKUP بدلا من معادلتي INDEX و MATCH في ورقة العمل Monthly Student Attendance كالتالي =VLOOKUP(B3;Table2;Table2[[#Headers];[1]:[30]];0) وكانت النتيجة جيدة ولكن لوحظ أن نتيجة المعادلة لا تأتي بيوم 30 وفيما عدا ذلك جميع القيم صحيحة .. أرجوا من كالرد على هذا الاستفسار وشكرا لك
شرح ممتاز
بس في مشكله الpdf بيبقي صفحتين والصفحه التانيه فاضيه
ممكن الحل
Merci beaucoup.
شكرا يا استاذ منذر على هذا الدرس القيم ومزيد من التميز ان شاء الله
للاسف الكود الاخير الخاص بالتحويل الى PDF عند النقر على الزر المخصص لذلك تظهر لي رسالة "Can't execut cod in break mod " وقد غيرت مسار ملف حفظ PDF على جهازي لكن هذا الراسلة تستمر في الظهور، لا اعلم اين تكمن المشكلة افيدونا رجاء كوني احتاج لتعلم هذه الميزة او الخاصية
يبقى امر مهم بالنسبة للمبتدئين مثلي هل هناك برنامج PDF معين يتوافف مع كود التحويل الذي كتبته ام انه اي برنامج PDF ييفي بالغرض
وشكرا
شكرا لك استادنا الفاضل بارك الله فيك ، لدي استفسار بسيط شكر الله لك، كلما كتبت هدا الكود اجد خطء في Activesheet.name ك كما لو ان برنامجي لا يتوافق مع Activesheet.name
Sub Fichepromoter()
Dim Rg As Range
For Each Rg In Range("A3:A60")
Sheets("Fiche Pro").Copy , Sheets("Fiche Pro")
Activesheets.Name = Rg
Next Rg
End Sub
شكر الله لكل من تعاون معي
السلام عليكم
تشكر يا استاذ شرح مميز
في الصفحة School Attendance Record - June 2019 من فضلكم هل من طريقة لجعل تسجيل الحضور اتوماتيكي ؟؟
تضع له الاسم و التاريخ و حاضر و لا لا و هو يبحث عنه اوتوماتيكي و يسجل الملاحظة ؟؟
و شكرا
بارك الله فيك .ازاى اقدر احمل ملفات العمل
ما شاء الله تبارك الله جزاك الله كل خير
انا بس حبيت اطلب امر بسيط
اولا في زر التنفيذ احتاج انه بدل ما اسويه في نفس الورك بوك يفتح واحد جديد وينفذ الامر .
ثانيا في التصدير طبعا يروح ياخد اللي فى الورك بوك الجديد لانه بكدا صدرلي كل الشيتات اللي موجودة في هذا الورك بوك وهذا انا ما احتاجة
عشان كده احتاج انه الامر تنفذ في ورك بوك اخر وايضا يتصدر منه pdf والملف الاصلي يفضل كما هو .. هل ذلك ممكن ؟.؟؟؟؟؟؟؟؟؟
اذا مكن ابحث عن كود حفظ pdf لعدة صفحات فى شيت واحد كل صفحة يتم حفظها كملف pdf منفصل
بارك الله فيك أستاذ منذر على هذه الدورة المتميزة
لكنني أواجه مشكلة في تحميل ملفات العمل الرابط لا يعمل عندي
عملت نفس الخطوات ولكن يظهرلي error ما يقبل يطلع pdf .... شاكر الشرح المبسط والممتع
السلام عليكم
اذا كنت اريد تصدير اسم معين فقط من دون بقية الاسماء
كيف اجعله ينفذ الأمر لهذا الاسم بالذات عن طريق النقر على الاسم
مرحبا اخ منذر
في الخطوة الأخيرة حاولت تصديرالتقارير ك صورjbg بدلا من pdf,وقمت بالبحث على المواقع لكن جميع محاولاتي باءت بالفشل.
هل يوجد طريقة لعمل ذلك فيvba
وشكرا لك.
ياريت تنزل البرمجة pdf
السلام عليكم سؤالي هو اريد حفظ ملف في مجلد بشرطين الاول هو ان يكون اسم ملف وفق بيانات خلية بالملف نفسه والشرط الثاني ان يكون اسم المجلد وفق بيانات خلية ثانية بنفس الملف وتتغير الملفات والمجلدات وفق تغير قيم هاتين الخليتين طبعا بالاكسيل vba مع الشكر الجزيل
السلام عليكم استاذ منذر
لدي طلب في هذا الامر
For Each Ws In Worksheets
nm = Ws.Name
Ws.Select
Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\cards\" & nm & ".pdf", OpenAfterPublish:=False
كيف اقوم بتغييرة بحيث يصدر جميع الورقات الى ملف pdf وليس عدة ملفات
انا اول طالب في الشيت 👌😎😂
اخ منذر الله يخليك جاوبني
محتاج اعمل طريقة في الاكسل اجعل نهاية كل بيج بريك تحتوي على مجموع البيانات و بشكل ديناميكي الله عليك جاوب
سبحان الله علقت نفس تعليقي قبل 8 أشهر و ع نفس الفيديو!
طب لو عاوز يحول جميع اوراق العمل الي ملف بي دي اف واحد ماذا افعل؟
لو اقدر احط اكثر من لايك جان حطيت بس ما اكدر
اذا اردت اظهار الرسالة اظغط عل كنترول ومسافة
هل من الممكن اعاده رفع ملف العمل للدرس ده رجاءاً
السلام عليكم أخوي منذر كنت عايز أعمل فورم بسيط عبارة عن رقم الحزب في القرآن و اخراج موضع القرآن أنا كاتبهم علي جدول اكسل و كنت عايز أعمله علي فورم عن طريق بحث و للأسف حاولت كتير و مش عارف ياريت تبعتلي ازاي اعمل مفتاح البحث و طريقة كتابة الكود
انا مشترك جديد واني لااعرف لغة الانكليزية وبدي اتعلم ع برنامج اكسل ونظام الدالة هل يوجد برنامج عربي
طيب لو حابب أصدر بيانات مفلتره إلى شيت اخر كيف الطريقه
Sub studentrebort()
Dim mo As Range
For Each mo In Range("Students[Student Name]")
Sheets("Monthly Student Attendance").Copy , Sheets("Monthly Student Attendance")
ActiveSheet.Range("B3") = mo.Value
Next mo
End Sub
كل لما اكتب الكود كده يقولى فى غلط فى السطر بتاع النسخ ومش عارف اعمل فيه حاجه
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=":\Users\engsa\Desktop\?????? ???? ?????? ???? ???? Excel VBA\" & nm & ".pdf", openafterpublish:=flse
لماذا خرج اشارات استفهام في اسم الملف بعد نسخه
هل البرنامج البرمجي لا يدعم العربية ؟
nm = ws.Name ويعلم هذه باللون الاصفر
ما السبب
شكرا لكم استاذنا على الشرح الرائع نتمى لك مزيدا من التقدم
لو سمحت اجعل ملف التحميل على موقع
mediafire
لأنه أسهل
النسخ فيه مشكله معايا مهما احاول بيطلع ليا خطا فيه لو حد عنده مساعده
*********************************
جزاك الله كل خير
جزاك الله خيرا
جزاك الله خيرا
وإياكم صديقي